home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 83win / data1.cab / Basic_Plus_Examples / BARTEST < prev    next >
Text File  |  2001-03-02  |  1KB  |  31 lines
  1. 10    ! **********************************************************
  2. 20    ! Example: BAR Test
  3. 30    !
  4. 40    ! This program creates a BAR widget with three ranges.
  5. 50    ! As the bar height progesses from the LOW range through
  6. 60    ! the middle range to the HIGH range, the bar color changes
  7. 70    ! from green to yellow to red. When the bar is in the LOW
  8. 80    ! or the HIGH range, the program beeps throughout the range.
  9. 90    !
  10. 100   ! **********************************************************
  11. 110   !
  12. 120       INTEGER N,M
  13. 130       ASSIGN @Bar TO WIDGET "BAR"
  14. 140       CONTROL @Bar;SET ("TITLE":" Example: BAR Test")
  15. 150       CONTROL @Bar;SET ("X":100,"Y":20,"WIDTH":200,"HEIGHT":200)
  16. 160       CONTROL @Bar;SET ("ALARM RANGES":"LOW,HIGH","ALARM TYPE":"BEEP")
  17. 170       CONTROL @Bar;SET ("LOW LIMIT":10,"HIGH LIMIT":90)
  18. 180       CONTROL @Bar;SET ("SYSTEM MENU":"Quit")
  19. 190       ON EVENT @Bar,"SYSTEM MENU" GOTO Finis
  20. 200   !
  21. 210       FOR M=1 TO 3
  22. 220           FOR N=1 TO 100
  23. 230               WAIT .05
  24. 240               CONTROL @Bar;SET ("VALUE":N)
  25. 250           NEXT N
  26. 260           WAIT 1
  27. 270       NEXT M
  28. 280   !
  29. 290  Finis:!
  30. 300       END
  31.